<?xml version="1.0"?>

<st-source>
<time-stamp>From VisualWorks® NonCommercial, 7.5 of April 16, 2007 on October 19, 2007 at 12:17:45 pm</time-stamp>


<class>
<name>Ship</name>
<environment>SpaceTrader</environment>
<super>Core.Object</super>
<private>false</private>
<indexed-type>none</indexed-type>
<inst-vars>cargo cargobays gadgets value fuel maxfuel </inst-vars>
<class-inst-vars></class-inst-vars>
<imports></imports>
<category>SpaceTrader</category>
<attributes>
<package>SpaceTrader</package>
</attributes>
</class>

<!-- -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -   -->


<methods>
<class-id>SpaceTrader.Ship class</class-id> <category>instance creation</category>

<body package="SpaceTrader" selector="new">new
	"Answer a newly created and initialized instance."

	^super new initialize</body>
</methods>

<!-- -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -   -->


<methods>
<class-id>SpaceTrader.Ship</class-id> <category>initialize-release</category>

<body package="SpaceTrader" selector="initialize">initialize
	"Initialize a newly created instance. This method must answer the receiver."

	" *** Edit the following to properly initialize instance variables ***"
	cargo := nil.
	cargobays := nil.
	gadgets := nil.
	value := nil.
	fuel := nil.
	maxfuel := nil.
	" *** And replace this comment with additional initialization code *** "
	^self</body>
</methods>

<methods>
<class-id>SpaceTrader.Ship</class-id> <category>accessing</category>

<body package="SpaceTrader" selector="cargo">cargo
	^cargo</body>

<body package="SpaceTrader" selector="cargo:">cargo: anObject
	cargo := anObject</body>

<body package="SpaceTrader" selector="cargobays">cargobays
	^cargobays</body>

<body package="SpaceTrader" selector="cargobays:">cargobays: anObject
	cargobays := anObject</body>

<body package="SpaceTrader" selector="fuel">fuel
	^fuel</body>

<body package="SpaceTrader" selector="fuel:">fuel: anObject
	fuel := anObject</body>

<body package="SpaceTrader" selector="gadgets">gadgets
	^gadgets</body>

<body package="SpaceTrader" selector="gadgets:">gadgets: anObject
	gadgets := anObject</body>

<body package="SpaceTrader" selector="maxfuel">maxfuel
	^maxfuel</body>

<body package="SpaceTrader" selector="maxfuel:">maxfuel: anObject
	maxfuel := anObject</body>

<body package="SpaceTrader" selector="value">value
	^value</body>

<body package="SpaceTrader" selector="value:">value: anObject
	value := anObject</body>
</methods>

</st-source>
